home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1994 November / Cd Ware (Nro. 2) - Epimundo.iso / DOS / ED / PCKEY.ZIP / EX_MENU.SCR < prev    next >
Encoding:
Text File  |  1993-05-25  |  3.1 KB  |  147 lines
  1. :ex_menu.scr
  2.  
  3. if memory 1 < 8 goto begin
  4.  
  5. if memory 1 = 7 goto menu
  6.  
  7. clear
  8. keyboard
  9.  
  10. if memory 1 = 8 goto ex1
  11. if memory 1 = 9 goto ex2
  12. if memory 1 = 10 goto ex3
  13. if memory 1 = 11 goto ex4
  14. if memory 1 = 12 goto ex5
  15.  
  16. :begin
  17.  
  18. memory 1 = 7
  19. memory 2 = 0
  20.  
  21. :menu
  22.  
  23. clear
  24. cursor 26 4
  25. print 'This is the EXERCISES MENU.
  26. cursor 4 7
  27. print 'You will return here if you press ESC whilst doing any of the lessons.
  28.  
  29. cursor 14 10
  30. print 'Press : 1 For an introduction
  31. cursor 22 12
  32. print '2 for Lesson 10
  33. cursor 22 13
  34. print '3 for Lesson 11
  35. cursor 22 14
  36. print '4 for Lesson 12
  37. cursor 22 15
  38. print '5 for Lesson 13
  39. cursor 22 16
  40. print '6 for Lesson 14
  41.  
  42. cursor 4 24
  43. print 'Remember, pressing ESC from here will return you to the TUTORIAL MENU.
  44.  
  45. :wait_key
  46. wait
  47. if key = 27 goto exit
  48. if key >= 49 if key <= 54 goto check_key
  49. goto wait_key
  50.  
  51. :check_key
  52.  
  53. if key = 49 goto intro
  54.  
  55. clear
  56. keyboard
  57.  
  58. memory 2 = 0
  59.  
  60. if key = 50 goto ex1
  61. if key = 51 goto ex2
  62. if key = 52 goto ex3
  63. if key = 53 goto ex4
  64. if key = 54 goto ex5
  65.  
  66. :ex1
  67. memory 1 = 8
  68. script exsize1
  69. if key = 27 goto menu
  70. if key = s goto exit
  71. if key = S goto exit
  72.  
  73. :ex2
  74. memory 1 = 9
  75. script exsize2
  76. if key = 27 goto menu
  77. if key = s goto exit
  78. if key = S goto exit
  79.  
  80. :ex3
  81. memory 1 = 10
  82. script exsize3
  83. if key = 27 goto menu
  84. if key = s goto exit
  85. if key = S goto exit
  86.  
  87. :ex4
  88. memory 1 = 11
  89. script exsize4
  90. if key = 27 goto menu
  91. if key = s goto exit
  92. if key = S goto exit
  93.  
  94. :ex5
  95. memory 1 = 12
  96. script exsize5
  97. if key = 27 goto menu
  98. if key = s goto exit
  99. if key = S goto exit
  100.  
  101. goto menu
  102.  
  103. :intro
  104.  
  105. clear
  106. cursor 2 2
  107. print 'The exercises in this part of the tutorial consist of example drafts of text.
  108. cursor 0 3
  109. print 'It is best if you do one exercise per session, possibly repeating the same
  110. cursor 0 4
  111. print 'exercise until you are confident enough to move on to the next exercise.
  112.  
  113. cursor 2 6
  114. print 'Also, starting with these exercises, we will try to improve your speed in
  115. cursor 0 7
  116. print 'words per minute. I will set the speed at roughly the speed you have been typing
  117. cursor 0 8
  118. print 'so far.
  119. cursor 2 9
  120. print 'Basically, if you don't press the highlighted key within a certain time limit
  121. cursor 0 10
  122. print 'the arrows will move onto the next character in the test. If this happens, don't
  123. cursor 0 11
  124. print 'worry, you won't have to correct your mistake.
  125. cursor 2 12
  126. print 'Generally, this is the best way to type on a computer anyway, as mistakes can
  127. cursor 0 13
  128. print 'be taken care of when you finish typing your text, rather than fiddling about
  129. cursor 0 14
  130. print 'with the cursor each time you make an error.
  131.  
  132. cursor 2 16
  133. print 'Some of the examples present text in capitals, like PCWORD. The keyboard on
  134. cursor 0 17
  135. print 'display will highlight one of the shift keys with each letter, but you can use
  136. cursor 0 18
  137. print 'the CAPS LOCK instead of switching to the other SHIFT key. So when you get to
  138. cursor 0 19
  139. print 'capitalised text, first press the CAPS LOCK type the text and press the CAPS
  140. cursor 0 20
  141. print 'LOCK to return the keys to their normal shift state.
  142.  
  143. script waitspc
  144. goto menu
  145.  
  146. :exit
  147.